COMPILER ERROR MESSAGES 

138 TYPE OF VARIABLE IS NOT ARRAY 

140 TYPE OF VARIABLE IS NOT RECORD 

141 TYPE OF VARIABLE IS NOT POINTER 
148 SET BODNDS OUT OF RANGE 

152 NO SUCH FIELD IN THIS RECORD 
154 ACTUAL PARAMETER MUST BE A VARIABLE 
156 MULTIDEFINED CASE LABEL 
161 PROCEDURE OR FUNCTION ALREADY 
DECLARED AT A PREVIOUS LEVEL 
165 LABEL ALREADY DEFINED 

167 UNDECLARED LABEL 

168 LABEL NOT DEFINED 

182 "FOR" EXPRESSION MUST BE OF 
SOME ENUMERATION TYPE 

183 "CASE" EXPRESSION MUST BE OF 

SOME ENUMERATION TYPE 

184 "FOR" VARIABLE MUST BE LOCAL 

185 OPERATION DEFINED FOR TEXT ONLY 

186 OPERATION NOT DEFINED FOR TEXT FILES 
193 ACCESS STATEMENT MISSING FOR COMMON 
199 FEATURE NOT IMPLEMENTED 

202 STRING CONSTANT CANNOT SPAN LINES 

203 INTEGER CONSTANT TOO LARGE 

210 FIELD WIDTH MUST BE INTEGER 

211 FRACTION LENGTH MUST BE OF TYPE 
INTEGER 

212 HEX FORMAT ALLOWED ONLY FOR TYPE 
INTEGER 

219 PARAMETER MUST BE OF TYPE FILE 

220 PARAMETER MUST BE OF TYPE INTEGER 
223 PARAMETER MUST BE OF TYPE POINTER 
230 ILLEGAL TYPE OF PARAMETER IN STANDARD 

PROCEDURE CALL 

250 TOO MANY NESTED SCOPES - LIMIT IS 15 


RUNTIME ERROR MESSAGES 

Out of stack space 
Heap space exhausted 
Invalid pointer in dispose 
Illegal static nesting level 
Attempt to divide by zero 
Pcode instruction not defined 
Sets not compatible 
Undefined internal procedure 
Physical 10 error 
Set element too large 
Invalid array index 
Attempt to read invalid number 
Undefined file buffer variable 
Arithmetic overflow 
Attempt to write to input file 
File not open 

Attempt to read from output file 
No heap space for file buffer 



ED <filename> 

EDITOR CONTROL 

KEYS 

Key 

alternate 

Function 

f 

CTL/U 

Cursor up 

♦ 

CTL/J 

Cursor down 


CTL/H 

Cursor left 


CTL/R 

Cursor right 

CLEAR ) 

CTL/B 

Roll backward 

CLEAR ) 

CTL/A 

Roll forward 

CLEAR — 


Cursor to BOLN 

CLEAR — 


Cursor to EOLN 

SHIFT — 

CTL/P 

Delete character 

SHIFT ^ 

CTL/N 

Delete line 

SHIFT @ 

CTL/0 

Insert line 

ENTER 

CTL/M 

New line 

CLEAR A 


Toggle auto indent 

CLEAR B 

CTL/T 

Back tab 

CLEAR C 


Command mode 

CLEAR D 

CTL/D 

Duplicate line 

CLEAR F 

CTL/C 

Find next string 

CLEAR G 


Merge two lines 

CLEAR H 

CTL/L 

Horae 

CLEAR I 

CTL/Q 

Insert char mode 

CLEAR K 

CTL/K 

Delete to EOLN 

CLEAR 0 


Open line at cursor 

CLEAR R 

CTL/Z 

Replace next string 

CLEAR S 

CTL/W 

Set tab 

CLEAR T 


Tab 

CLEAR Y 


Clear tab 

CLEAR ? 


Display memory 



EDITOR COMMANDS 


APPEND 

EXIT 

FIND 

HELP 

HSCROLL 

INSFILE 

QUIT 

QUOTE 

REPLACE 

ROLL 

SHOWFILE 

SHOWLINE 

TABS 

WRITE 

+ 


Add text to buffer 
Exit and save file 
Find string 
Display help 
Horizontal scroll 
Insert file 
Abort changes 
Insert literal string 
Replace string 
Set roll 
Display a file 
Position to line 
Set tabs 

Write text to file 
Move forward by lines 
Move backward by lines 


<optional item> 
"items" are 

, (user defined item) 

computer responses 

COMPILING 

Short Form; 


PASCAL (FILE CONTAINING SOURCE) 

Long Form: 


PASCAL 


"SOURCE =" 

<FILE CONTAINING SOURCE> 

"LISTING=" 

<FILE FOR LISTING> 

"OBJECT =" 

<FILE FOR OBJECT> 

EXECUTING 

Load and Execute 

: 

RUN (FILENAME) <STACK SIZE> 

Execute or Build 

Command File: 

LINKLOAD 


Command 

Meaning 

L 

load object file 

R 

run program 

T 

return to TRSDOS 

I 

clear symbol table 

S 

display symbol table 

B 

build command file 

DEVICE NAMES 

Name 

Device 

:L 

line printer 

:C 

crt 

:D 

dummy 

ASCII CHARACTER SET 

Dec- Hex Name 

Dec- Hex Name 

imal 

imal 

0 00 NUL 

11 OB VT 

1 01 SOH 

12 OC FF 

2 02 STX 

13 OD CR 

3 03 ETX 

14 OE SO 

4 04 EOT 

15 OF SI 

5 05 ENQ 

16 10 DLE 

6 06 ACK 

17 11 DCl 

7 07 BEL 

18 12 DC2 

8 08 BS 

19 13 DC3 

9 09 HT 

20 14 DV4 

10 OA LF 

21 15 NAK 




ASCII 

Character 

Set 


Dec- 

Hex 

Name 

Dec- 

Hex 

Name 

imal 



imal 



22 

16 

SYN 

75 

4B 

K 

23 

17 

ETB 

76 

4C 

L 

24 

18 

CAN 

77 

4D 

M 

25 

19 

EM 

78 

4E 

N 

26 

lA 

SUB 

■79 

4F 

0 

27 

IB 

ESC 

80 

50 

P 

■ 28 

1C 

FS 

81 

51 

Q 

29 

ID 

GS 

82 

52 

R 

30 

IE 

RS 

83 

53 

S 

31 

IF 

US 

84 

54 

T 

32 

20 

II II 

85 

55 

U 

33 

21 

! 

86 

56 

V 

34 

22 

II 

87 

57 

W 

35 

23 

# 

88 

58 

X 

36 

24 

$ 

89 

59 

Y 

37 

25 

% 

90 

5A 

Z 

38 

26 

& 

91 

5B 

[ 

39 

27 

t 

92 

5C 

\ 

40 

28 

( 

93 

5D 

1 

41 

29 

) 

94 

5E 


42 

2A 

* 

95 

5F 


43 

2B 

+ 

96 

60 


44 

2C 

t 

97 

61 

a 

45 

2D 

- 

98 

62 

b 

46 

2E 

, 

99 

63 

c 

47 

2F 

/ 

100 

64 

d 

48 

30 

0 

101 

65 

e 

49 

31 

1 

102 

66 

f 

50 

32 

2 

103 

67 

g 

51 

33 

3 

104 

68 

h 

52 

34 

4 

105 

69 

i 

53 

35 

5 

106 

6A 

j 

54 

36 

6 

107 

6B 

k 

55 

37 

7 

108 

6C 

1 

56 

38 

8 

109 

6D 

m 

57 

39 

9 

110 

6E 

n 

58 

3A 

• 

111 

6F 

o 

59 

3B 

; 

112 

70 

p 

60 

3C 

< 

113 

71 

q 

61 

3D 

s 

114 

72 

r 

62 

3E 

> 

115 

73 

s 

63 

3F 

? 

116 

74 

t 

64 

40 

@ 

117 

75 

u 

65 

41 

A 

118 

76 

V 

66 

42 

B 

119 

77 

w 

67 

43 

C 

120 

78 

X 

68 

44 

D 

121 

79 

y 

69 

45 

E 

122 

7A 

Z 

70 

46 

F 

123 

7B 

{ 

71 

47 

G 

124 

7C 

1 

72 

48 

H 

125 

7D 

) 

73 

49 

I 

126 

7E 


74 

4A 

J 

127 

7F 

DEL 


TRS-80* PASCAL 


Quick Reference 
Guide 


PASCAL PROGRAM STRUCTURE 

<optional items> , {user defined) 

Other items must appear as printed. 
Multiple LABEL, TYPE, CONST, COMMON, 
ACCESS, VAR, PROCEDURE and FUNCTION 
declarations are allowed. 


PROGRAM {program name); 

<LABBL (label list);> 

<TYPE (identifier) = (type definition)> 

<CONST (identifier) = (value);> 

<COMMON (identifier) : {type);> 

<ACCESS (identifier list);> 

<VAR (identifier) : {type);> 

<PROCEDURE (identifier) (parameter list); 
<FORWARD;> <EXTERNAL;> 

<{If not declared FORWARD or EXTERNAL 
then declarations and body here) >; > 

<FUNCTION (identifier) (parameter list): 
(type returned result); 

<(If not declared FORWARD or EXTERNAL 
then declarations and body here) >; > 

BEGIN 

(program body) 

END. 


Manufactured for Radio Shack 
by Alcor Systems 

Copyright (C) 1983 by Alcor Systems 




















PASCAL PROGRAM STRUCTURE 

A parameter list may be defined as follows; 

( <VAR> {identifier list) : (type); 

<VAR> {identifier list) : {type) ) 

An identifier must start with a letter, and 
is composed of the letters, digits and the 
, '$' characters. The first 8 characters 
must form a unique name. 


PREDEFINED TYPES 

CHAR, INTEGER, BOOLEAN, REAL, TEXT 

A type definition is: 

(1) {predefined type); 

(2) {constant)..{constant) ; 

(3) ( {identifier list) ); 

(4) <packed> RECORD 

{identifier list) : {type); 
{identifier list) : {type); 
END; 

(5) <packed> ARRAY [ {bounds) ] 
OF {type); 

(6) FILE OF {type); 

(7) SET OF {type); 


FLOW CONTROL STATEMENTS 

CASE {expression) OF 

{selector list) : {statement); 
{selector list) : {statement); 

< OTHERWISE {statement); > 

END; 

IF (expression) THEN 
{statement) 

< ELSE {statement}; > 

REPEAT (statement list); 

UNTIL { (expression) ); 

WHILE { (expression) ) DO (statement); 

GOTO (label); 

ESCAPE; 



BOOLEAN OPERATORS 

Operator 

Result of Operation 

OR 

True if either one or both 


of the operands is true. 

AND 

True only if both operands 


are true. 

NOT 

True if operand is false. 


ARITHMETIC OPERATORS 
I = integer , R = rea 


Operator Operation Type Type 

Operands Result 




sets of same type 
set compati- as larger 

union ble type set oper 


sets of same type 
set diff compati- as larger 
ble type set oper 


multiply I , R 


set sets of same type 
inter- compati- as larger 
section ble type set oper 


division I , R 


truncated 

division 


RELATIONAL OPERATORS 

Operator 

Result of Operation 


True if left operand is equal 
to right. 

<> 

True if left operand is not 
equal to right. 

< 

True if left operand is less 
than right. 

> 

True if left operand is greater 
than tight. 

< = 

True if left operand is less 
than or equal to right. 

> = 

True if left operand is greater 
than or equal to right. 



OPERATOR PRECEDENCE 
() <— highest precedence 

+ , - <— unary operators 

* , / , DIV , MOD 

+ < - 

=,<>,<,>,<=,>=, IN 

NOT 

AND 

OR <— lowest precedence 


RESERVED WORDS 

The following list of words are keywords 
and have special meaning in a program. 
They may not be used as identifiers. 

AND DOWNTO IF OR THE^ 

ARRAY ELSE IN PACKED TO 

BEGIN END LABEL PROCEDURE TYPE 

CASE FILE MOD PROGRAM UNTI 

CONST FOR NIL RECORD VAR 

DIV FUNCTION NOT REPEAT WHII 

DO GOTO OF SET WITH 



SPECIAL SYMBOLS 

Symbols 

with only one 

representation: 

+ 

- * 

/ 

s 

<> < 

<= >= > 

( 

) ' 

1 - . / 

: 1 

\ ! ! 

Symbols 

with alternate 

representations: 

symbol 

alternate 

Meaning 

{ 

(* 

open comment 

) 

*) 

close comment 


@ 

pointer symbol 

[ 

(. 

open array index 

1 

. ) 

close array index 


ARITHMETIC FUNCTIONS 
ABS(x) absolute value SQl 
SIN(x) sine CO 
ARCTAN(x) arctangent EX 
LN(x) natural 

logarithm SQ: 


SQR(x) square 
COS(x) cosine 
EXP(x) natural 

exponential 
SQRT(x) sq. root 


FILE ASSOCIATED PROCEDURES 


RESET{f) 
PAGE(f) 
MESSAGE(s) 


REWRITE( f) 
CLOSE(f) 
GET, PUT 


1 READ , 

READLN WRITE, 

WRITELN 1 



FUNCTIONS 


Boolean 

Transfer 

ODD(x) 

TRUNC(X) 

LOCATION(x) 

EOLN(f) 

ROUND (X) 

SIZE(x) 

EOF(f) 

ORD(x) 

HB(X) 


CHR(x) 

LB(X) 


OTHER FUNCTIONS 


SUCC(x) 

PRED(X) 



OTHER 

PROCEDURES 

PACK(a,i,z) 

UNPACK(z,a,i) 

NEW(p) 

ESCAPE 

DISPOSE(p) 


EXTERNAL LIBRARY ROUTINES 
(portable) 

PROCEDURE CALL$(ADDRESS:INTEGER; VAR A,F: 

BYTE; VAR BC, DE, HL, .IX, IY:INTEGER); 
FUNCTION FILESSTATUS(VAR F:TEXT):BYTE; 
FUNCTION GETKEY:CHAR; 

PROCEDURE HP$ERROR(NEWSTATE:BOOLEAN; 

VAR OLDSTATE:BOOLEAN); 

PROCEDURE INKEY(VAR CH;CHAR; 

VAR READY:BOOLEAN); 

FUNCTION INP(PORT:BYTE):BYTE; 

PROCEDURE IO$ERROR(NEWSTATE:BOOLEAN; 

VAR OLDSTATE:BOOLEAN); 

PROCEDURE OUT(PORT,VALUE:BYTE); 

FUNCTION PEEK(ADDRESS:INTEGER):BYTE; 
PROCEDURE POKE(ADDRESS:INTEGER; 

VALUE:BYTE); 

PROCEDURE SETACNM(VAR F:TEXT; NAME:STRING); 
PROCEDURE USER(ADDRESS:INTEGER; 

VAR HL:INTEGER); 

PROCEDURE WRITECH(CH:CHAR); 

PROCEDURE WRITESTRING(VAR S:CHARSTRING; 
FIRST,LAST;INTEGER); 

PROCEDURE $MEMORY(VAR STACK,HEAP:INTEGER); 
String Routines 

FUNCTION CHARACTER(S:STRING; POSITION: 
INTEGER):CHAR; 

FUNCTION CMPSTR(31,S2:STRING): 

COMPAREVALUE; 

FUNCTION CONC(SI,S2:STRING):STRING; 
FUNCTION CPYSTR(S;STRING):STRING; 

FUNCTION DECODED(S:STRING):REAL; 

FUNCTION DECODEKS:STRING) :INTEGER; 

FUNCTION DECODER(S:STRING):REAL; 

FUNCTION DELETE(S:STRING; POSITION, 

LENGTH:INTEGER):STRING; 

FUNCTION ENCODED(R;REAL):STRING; 

FUNCTION ENCODEKN:INTEGER) .-STRING; 

FUNCTION ENCODER(R:REAL):STRING; 

FUNCTION FIND(SUBSTRING,S:STRING):INTEGER; 
FUNCTION INSERT(SUBSTRING,S:STRING; 

POSITION:INTEGER):STRING; 

FUNCTION LEFT$(S:STRING; POSITION: 

INTEGER):STRING; 

FUNCTION LEN(S:STRING):INTEGER; 

FUNCTION MID$(S:STRING; POSITION, 

LENGTH:INTEGER):STRING; 

FUNCTION REPLACE(OLDSTRING,NEWSTRING,S 
:STRING):STRING; 

FUNCTION RIGHTS(S:STRING; POSITION: 

INTEGER):STRING; 

FUNCTION STR$(LENGTH:INTEGER; CH:CHAR) 

:STRING; 


COMPILER ERROR MESSAGES 


2 IDENTIFIER EXPECTED 

3 'PROGRAM' EXPECTED 

4 ')' EXPECTED 

5 ' : ' EXPECTED 

6 ILLEGAL SYMBOL 

8 'OF' EXPECTED 

9 ' (' EXPECTED 

10 ERROR IN TYPE 

11 LEFT BRACKET '['OF 

12 RIGHT BRACKET ']' C 

13 'END' EXPECTED 

14 ' ; ' EXPECTED 

15 INTEGER EXPECTED 

16 '=' EXPECTED 

17 'BEGIN' EXPECTED 
20 ',' EXPECTED 

22 '..' EXPECTED 

23 '.' EXPECTED 

49 'ARRAY' EXPECTED 


EXPECTED 
' EXPECTED 


50 CONSTANT EXPECTED 

51 ':=' EXPECTED 

52 'THEN' EXPECTED 

53 'UNTIL' EXPECTED 

54 'DO' EXPECTED 

55 'TO'/'DOWNTO' EXPECTED 

57 'FILE' EXPECTED 

58 INVALID OR MISSING OPERAND 

62 DECIMAL PLACES ALLOWED ONLY FOR REAL 
66 TYPE IDENTIFIER EXPECTED 

80 OPEN COMMENT WITHIN A COMMENT 

81 UNKNOWN OPTION 

82 # REQUIRES A 2 CHARACTER HEX VALUE 
OR ## 

101 IDENTIFIER DECLARED TWICE 

102 LOWER BOUND EXCEEDS UPPER BOUND 

103 IDENTIFIER IS NOT OF APPROPRIATE CLASS 

104 UNDECLARED IDENTIFIER 

105 CLASS OF IDENTIFER IS NOT VARIABLE 
107 INCOMPATIBLE SUBRANGE TYPES 

113 ARRAY BOUNDS MUST BE SCALAR 
117 UNSATISFIED FORWARD REFERENCE TO 
A TYPE IDENTIFER OF A POINTER 

119 ';' EXPECTED (PARAMETER LIST NOT 

ALLOWED) 

120 FUNCTION RESULT MUST BE SCALAR, 
SUBRANGE, OR POINTER 

123 FUNCTION RESULT EXPECTED 

126 IMPROPER NUMBER OF PARAMETERS 

127 TYPE OF ACTUAL PARAMETER DOES NOT 
MATCH FORMAL PARAMETER 

129 TYPE CONFLICT OF OPERANDS IN 
AN EXPRESSION 

132 COMPARISON WITH '>' OR '<' NOT 
ALLOWED ON SETS 

134 ILLEGAL TYPE OF OPERANDS 

135 TYPE OF EXPRESSION MOST BE BOOLEAN 

136 SET ELEMENT TYPE MUST BE SOME 
ENUMERATION TYPE 




























































